1) AL.PAL[PNT,HE] and 2) AL.PAL[AL,HE]	1-23-80 15:32	pages 1,1

**** File 1) AL.PAL[PNT,HE]/1P/6L
1)	C00013 ENDMK
1)	C⊗;
**** File 2) AL.PAL[AL,HE]/1P/6L
2)	C00012 ENDMK
2)	C⊗;
***************


**** File 1) AL.PAL[PNT,HE]/2P/5L
1)	.IFNDF CPOINTY
1)	CPOINTY==0		; unless otherwise stated this is not a POINTY compilation
1)	.ENDC
1)	;These need only be looked at during the first pass:
**** File 2) AL.PAL[AL,HE]/2P/6L
2)	;These need only be looked at during the first pass:
***************


**** File 1) AL.PAL[PNT,HE]/2P/33L
1)	.INSRT ALIO2.PAL[PNT,HE]
1)	.PRINT /	LARGEB
**** File 2) AL.PAL[AL,HE]/2P/31L
2)	.INSRT ALIO.PAL[AL,HE]
2)	.PRINT /	LARGEB
***************


**** File 1) AL.PAL[PNT,HE]/2P/49L
1)				; interpreter for pointy routines
1)	.PRINT /	PINTRP
1)	/
1)	.INSRT PINTRP.PAL[PNT,HE]
1)				; display routines on the  VT05
1)	.PRINT /	ALDISPLAY
1)	/
1)	.INSRT ALDISP.PAL[PNT,HE]
1)				; routines talking to the 10
1)	.PRINT /	TALK10
1)	/
1)	.INSRT TALK10.PAL[PNT,HE]
1)				;The floating I/O
**** File 2) AL.PAL[AL,HE]/2P/47L
2)				;The floating I/O
***************


**** File 1) AL.PAL[PNT,HE]/2P/81L
  1) AL.PAL[PNT,HE] and 2) AL.PAL[AL,HE]	1-23-80 15:32	pages 2,2

1)	ALLIVE:: .WORD 0	;1 when AL is running, 0 otherwise
1)	CODE
**** File 2) AL.PAL[AL,HE]/2P/65L
2)	CODE
***************


**** File 1) AL.PAL[PNT,HE]/3P/18L
1)	1$:	JSR PC,INIARM	;initialize the arm
1)					;set up the first interpreter
1)		JSR PC,INTINIT		;Initialize the interpreter events
**** File 2) AL.PAL[AL,HE]/3P/18L
2)	1$:	TST LINTARM	;For debugging new systems - if the arm code hasn't been
2)		BEQ 4$		; loaded then don't try to initialize the arm
2)		MOV #DVBKSZ,R0	;Get a device block
2)		JSR PC,GTFREE
2)		MOV R0,R1
2)		MOV R0,-(SP)	;Save address of device block so we can free it
2)		JSR PC,@LINTARM	;Initialize the arm code
2)		TST R0		;All well?
2)		BEQ 3$		;Yes
2)		CMP R0,#10	;Is it the reference supply?
2)		BNE 2$
2)		ALERR STMES3	; yup - complain about it.
2)		BR 3$
2)	2$:	CMP R0,#7	;Is it the power supply?
2)		BNE 22$
2)		ALERR STMES4	; yup - complain about it.
2)		BR 3$
2)	22$:	ALERR STMES2	;Just make a general complaint.
2)	3$:	MOV (SP)+,R0	;R0 ← LOC[device block]
2)		JSR PC,RLFREE	;Release it
2)		CMP ARMVER,#VERSION	;Arm compatible?
2)		BEQ 4$		;Yes
2)		ALERR STMES1	;No
2)	4$:
2)		;set up the first interpreter
2)		JSR PC,INTINIT		;Initialize the interpreter events
***************


**** File 1) AL.PAL[PNT,HE]/3P/42L
1)		MOV #1,ALLIVE		;Let rest of world know we are alive
1)		TST SAILID		;Do we need to talk to 10?
1)		BEQ 42$		;No, no need to start up POINTY
1)		JSR PC,UPDINIT		;Initialize the updating
1)		JSR PC,PNTINIT	;Yes, go initialize POINTY
1)	42$:	EVWAIT 		;Wait for the return signal
  1) AL.PAL[PNT,HE] and 2) AL.PAL[AL,HE]	1-23-80 15:32	pages 3,3

1)		BCC  5$		;All well?
1)		ALERR TSTMES	;No
1)	5$:	CLR ALLIVE	;done with the AL program
1)		SLEEP #1000.	;give a chance for all the other jobs to die
1)		EVWAIT CSLEVT	;Grab the console
1)		MOV #ENDMES,R0	;Print ALL DONE message
**** File 2) AL.PAL[AL,HE]/3P/65L
2)		EVWAIT 		;Wait for the return signal
2)		BCC  5$		;All well?
2)		ALERR TSTMES	;No
2)	5$:	EVWAIT CSLEVT	;Grab the console
2)		MOV #ENDMES,R0	;Print ALL DONE message
***************


**** File 1) AL.PAL[PNT,HE]/3P/58L
1)	INIARM:	TST LINTARM	;For debugging new systems - if the arm code hasn't been
1)		BEQ 4$		; loaded then don't try to initialize the arm
1)		MOV #DVBKSZ,R0	;Get a device block
1)		JSR PC,GTFREE
1)		MOV R0,R1
1)		MOV R0,-(SP)	;Save address of device block so we can free it
1)		JSR PC,@LINTARM	;Initialize the arm code
1)		TST R0		;All well?
1)		BEQ 3$		;Yes
1)		CMP R0,#10	;Is it the reference supply?
1)		BNE 2$
1)		ALERR STMES3	; yup - complain about it.
1)		BR 3$
1)	2$:	CMP R0,#7	;Is it the power supply?
1)		BNE 22$
1)		ALERR STMES4	; yup - complain about it.
1)		BR 3$
1)	22$:	ALERR STMES2	;Just make a general complaint.
1)	3$:	MOV (SP)+,R0	;R0 ← LOC[device block]
1)		JSR PC,RLFREE	;Release it
1)		CMP ARMVER,#VERSION	;Arm compatible?
1)		BEQ 4$		;Yes
1)		ALERR STMES1	;No
1)	4$:	RTS PC
1)	DATA
**** File 2) AL.PAL[AL,HE]/3P/73L
2)	DATA
***************


**** File 1) AL.PAL[PNT,HE]/3P/98L
1)		PUTLOC SAILID,	CPOINTY
  1) AL.PAL[PNT,HE] and 2) AL.PAL[AL,HE]	1-23-80 15:32	pages 3,3

1)		PUTLOC LGETVAL, GETVAL
**** File 2) AL.PAL[AL,HE]/3P/89L
2)		PUTLOC LGETVAL, GETVAL
***************